110 IFA=0THENA=1:LOAD"DEMO.FONT",8,1
120 POKE56,112:CLR
130 POKE53265,0:POKE648,112
140 POKE56576,(PEEK(56576)AND252)OR2
150 POKE53272,206
160 POKE53265, 0
170 POKE53281, 6:POKE53280, 6
180 POKE53282, 82
190 POKE53283, 73
200 POKE53284, 96
210 PRINT"[147][144]                    ";
220 PRINT"                    ";
230 PRINT"                    ";
240 PRINT"                    ";
250 PRINT"         [166][167][167][167][167][167][167][167][167][167][167]";
260 PRINT"[167][167][167][167][167][167][167][167][167][167]]         ";
270 PRINT"         [168]f[181][160]`[160]edit[160]";
280 PRINT"character[160][144][         ";
290 PRINT"         [168]f[183][160]`[160]draw[160]";
300 PRINT"with[160]char[160][144][         ";
310 PRINT"         [168]f[185][160]`[160]scree";
320 PRINT"n[160]editor[160][160][144][         ";
330 PRINT"         [168]f[187][160]`[160]rotat";
340 PRINT"e[160]screen[160][160][144][         ";
350 PRINT"         [168]f[182][160]`[160]load[160]";
360 PRINT"font[160][160][160][160][160][160][144][         ";
370 PRINT"         [168]f[184][160]`[160]load[160]";
380 PRINT"screen[160][160][160][160][144][         ";
390 PRINT"         [168]f[186][160]`[160]save[160]";
400 PRINT"font[160][160][160][160][160][160][144][         ";
410 PRINT"         [168]f[188][160]`[160]save[160]";
420 PRINT"screen[160][160][160][160][144][         ";
430 PRINT"         [168][160][160][160][160][160][160][160][160][160][160]";
440 PRINT"[160][160][160][160][160][160][160][160][160][160][         ";
450 PRINT"         \[[[[[[[[[[";
460 PRINT"[[[[[[[[[[[         ";
470 PRINT"                    ";
480 PRINT"                    ";
490 PRINT"      &'''''''''''''";
500 PRINT"'''''''''''''[146]]      ";
510 PRINT"      ([158]C @ COPY CHAR";
520 PRINT" TO CHAR     [144][146][      ";
530 PRINT"      ([158]D @ DISK DIRE";
540 PRINT"CTORY        [144][146][      ";
550 PRINT"      ([158]E @ EXTENDED ";
560 PRINT"COLOR MODE   [144][146][      ";
570 PRINT"      ([158]M @ MEMORIZE ";
580 PRINT"CHARACTER    [144][146][      ";
590 PRINT"      ([158]O @ TOGGLE CU";
600 PRINT"RSOR ON OFF  [144][146][      ";
610 PRINT"      ([158]S @ SLIDE CHA";
620 PRINT"RACTER       [144][146][      ";
630 PRINT"      ([158]T @ TOGGLE SW";
640 PRINT"ITCH ABILITY [144][146][      ";
650 PRINT"      (             ";
660 PRINT"             [146][      ";
670 PRINT"      \[[[[[[[[[[[[[";
680 PRINT"[[[[[[[[[[[[[[      ";
690 PRINT"                    ";
700 PRINT"                   ";
710 POKE29671, 32
720 POKE56295, 0
730 POKE53265, 91
740 POKE198, 0:WAIT198, 1
750 :
760 POKE53265, 0
770 POKE53281, 9:POKE53280, 9
780 POKE53282, 118
790 POKE53283, 104
800 POKE53284, 96
810 PRINT"[147][149][[[[[[[[[[[[[[[159] JUNE ";
820 PRINT"5==7 [144][146]$[149][[[[[[[[[[[[[[";
830 PRINT"[[[[[[[[[[[[[[[144]#)))))";
840 PRINT")))))%[149][[[[[[[[[[[[[[";
850 PRINT"[[[[[[[[[[[[[[[[[[[[";
860 PRINT"[[[[[[[[[[[[[[[[[[[[";
870 PRINT"[[[150][160]sun[160][160]mon[160][160]tue[160][160]we";
880 PRINT"d[160][160]thu[160][160]fri[160][160]sat[160][144]$[149][[";
890 PRINT"[[[158][[[[*[[[[*[[[[*[[[";
900 PRINT"[*[[[[*[172][[[*[173][[[*[144]*[149][[";
910 PRINT"[[[158][[[[*[[[[*[[[[*[[[";
920 PRINT"[*[[[[*[[[[*[[[[*[144]*[149][[";
930 PRINT"[[[158][[[[*[[[[*[[[[*[[[";
940 PRINT"[*[[[[*[[[[*[[[[*[144]*[149][[";
950 PRINT"[[[158]))))%))))%))))%)))";
960 PRINT")%))))%))))%))))%[144]*[149][[";
970 PRINT"[[[158][174][[[*[175][[[*[176][[[*[177][[";
980 PRINT"[*[178][[[*[179][[[*[180][[[*[144]*[149][[";
990 PRINT"[[[158][[[[*[[[[*[[[[*[[[";
1000 PRINT"[*[[[[*[[[[*[[[[*[144]*[149][[";
1010 PRINT"[[[158][[[[*[[[[*[[[[*[[[";
1020 PRINT"[*[[[[*[[[[*[[[[*[144]*[149][[";
1030 PRINT"[[[158]))))%))))%))))%)))";
1040 PRINT")%))))%))))%))))%[144]*[149][[";
1050 PRINT"[[[158][172][171][[*[172][172][[*[172][173][[*[172][174][";
1060 PRINT"[*[172][175][[*[172][176][[*[172][177][[*[144]*[149][[";
1070 PRINT"[[[158][[[[*[[[[*[[[[*[[[";
1080 PRINT"[*[[[[*[[[[*[[[[*[144]*[149][[";
1090 PRINT"[[[158][[[[*[[[[*[[[[*[[[";
1100 PRINT"[*[[[[*[[[[*[[[[*[144]*[149][[";
1110 PRINT"[[[158]))))%))))%))))%)))";
1120 PRINT")%))))%))))%))))%[144]*[149][[";
1130 PRINT"[[[158][172][178][[*[172][179][[*[172][180][[*[173][171][";
1140 PRINT"[*[173][172][[*[173][173][[*[173][174][[*[144]*[149][[";
1150 PRINT"[[[158][[[[*[[[[*[[[[*[[[";
1160 PRINT"[*[[[[*[[[[*[[[[*[144]*[149][[";
1170 PRINT"[[[158][[[[*[[[[*[[[[*[[[";
1180 PRINT"[*[[[[*[[[[*[[[[*[144]*[149][[";
1190 PRINT"[[[158]))))%))))%))))%)))";
1200 PRINT")%))))%))))%))))%[144]*[149][[";
1210 PRINT"[[[158][173][175][[*[173][176][[*[173][177][[*[173][178][";
1220 PRINT"[*[173][179][[*[173][180][[*[174][171][[*[144]*[149][[";
1230 PRINT"[[[158][[[[*[[[[*[[[[*[[[";
1240 PRINT"[*[[[[*[[[[*[[[[*[144]*[149][[";
1250 PRINT"[[[158][[[174][172]*[[[[*[[[[*[[[";
1260 PRINT"[*[[[[*[[[[*[[[[*[144]*[149][[";
1270 PRINT"[[[158]))))%))))%))))%)))";
1280 PRINT")%))))%))))%))))%[144]*[149][[";
1290 PRINT"[[[144]#)))))))))))))))))";
1300 PRINT")))))))))))))))))%[149][";
1310 POKE29671, 27
1320 POKE56295, 9
1330 POKE53265, 91
1340 POKE198, 0:WAIT198, 1
1350 :
1360 POKE53265, 0
1370 POKE53281, 0:POKE53280, 0
1380 POKE53282, 118
1390 POKE53283, 193
1400 POKE53284, 64
1410 PRINT"[147]      [154][172][[*[146][173][[*[146][174][[*[146]] ";
1420 PRINT"  [154][175][[*[146][176][[*[146][177][[*[146]]     ";
1430 PRINT"      [154][[[*[146][[[*[146][[[*[159][146][190] ";
1440 PRINT"  [154][[[*[146][[[*[146][[[*[146][190][159]     ";
1450 PRINT"      [154])))%)))%)))%[159][146][190] ";
1460 PRINT"  [154])))%)))%)))%[146][190][159]     ";
1470 PRINT"  [154][178][[*[146][[[*[146][[[*[146][[[*[159][146][190] ";
1480 PRINT"  [154][179][[*[146][[[*[146][[[*[146][180][[*[146]] ";
1490 PRINT"  [154][[[*[146][[[*[146][[[*[146][[[*[159][146][190] ";
1500 PRINT"  [154][[[*[146][[[*[146][[[*[146][[[*[159][146][190] ";
1510 PRINT"  [154])))%)))%)))%)))%[159][146][190] ";
1520 PRINT"  [154])))%)))%)))%)))%[159][146][190] ";
1530 PRINT"  [154][172][171][*[146][[[*[159][146]~[154][172][172][*[146][172][173]";
1540 PRINT"[*[146][[[*[159][146]~[154][172][174][*[146][[[*[159][146][190] ";
1550 PRINT"  [154][[[*[146][[[*[159][146][190]   [154][[[*[146][[";
1560 PRINT"[*[146][[[*[159][146][190]   [154][[[*[146][[[*[159][146][190] ";
1570 PRINT"  [154])))%)))%[159][146][190]   [154])))%))";
1580 PRINT")%)))%[159][146][190]   [154])))%)))%[159][146][190] ";
1590 PRINT"  [154][172][175][*[146][[[*[146][172][176][*[159][146]~[154][[";
1600 PRINT"[*[159][146]~[154][172][177][*[146][[[*[146][[[*[159][146][190] ";
1610 PRINT"  [154][[[*[146][[[*[146][[[*[159][146][190]   [154][[";
1620 PRINT"[*[159][146][190]   [154][[[*[146][[[*[146][[[*[159][146][190] ";
1630 PRINT"  [154])))%)))%)))%[159][146][190]   [154]))";
1640 PRINT")%[159][146][190]   [154])))%)))%)))%[159][146][190] ";
1650 PRINT"  \[154][172][178][*[146][[[*[146][[";
1660 PRINT"[*[146][[[*[146][[[*[159][146]~[191] ";
1670 PRINT"          [154][[[*[146][[[*[146][[";
1680 PRINT"[*[146][[[*[146][[[*[159][146][190]         ";
1690 PRINT"          [154])))%)))%))";
1700 PRINT")%)))%)))%[159][146][190]         ";
1710 PRINT"  [154][172][179][*[146][172][180][*[146][[[*[159][146]~[154][[";
1720 PRINT"[*[159][146]~[154][173][171][*[146][173][172][*[146][173][173][*[146]] ";
1730 PRINT"  [154][[[*[146][[[*[146][[[*[159][146][190]   [154][[";
1740 PRINT"[*[159][146][190]   [154][[[*[146][[[*[146][[[*[159][146][190] ";
1750 PRINT"  [154])))%)))%)))%[159][146][190]   [154]))";
1760 PRINT")%[159][146][190]   [154])))%)))%)))%[159][146][190] ";
1770 PRINT"  [154][173][174][*[146][[[*[159][146]~[154][173][175][*[146][[";
1780 PRINT"[*[146][173][176][*[159][146]~[154][173][177][*[146][[[*[159][146][190] ";
1790 PRINT"  [154][[[*[146][[[*[159][146][190]   [154][[[*[146][[";
1800 PRINT"[*[146][[[*[159][146][190]   [154][[[*[146][[[*[159][146][190] ";
1810 PRINT"  [154])))%)))%[159][146][190]   [154])))%))";
1820 PRINT")%)))%[159][146][190]   [154])))%)))%[159][146][190] ";
1830 PRINT"  [154][173][178][*[146][[[*[146][173][179][*[146][[[*[146]~[159]";
1840 PRINT"[154][173][180][*[146][174][171][*[146][[[*[146][[[*[159][146][190] ";
1850 PRINT"  [154][[[*[146][[[*[146][[[*[146][[[*[159][146][190] ";
1860 PRINT"  [154][[[*[146][[[*[146][[[*[146][[[*[159][146][190] ";
1870 PRINT"  [154])))%)))%)))%)))%[159][146][190] ";
1880 PRINT"  [154])))%)))%)))%)))%[159][146][190] ";
1890 PRINT"  \[159][154][174][172][*[146][[[*[146][[[*[159][146][190] ";
1900 PRINT"  [154][174][173][*[146][[[*[146][[[*[159][146]~[191]";
1910 POKE29671, 32
1920 POKE56295, 3
1930 POKE53265, 91
1940 POKE198, 0:WAIT198, 1
1950 :
1960 POKE53265, 27
1970 POKE56576,(PEEK(56576)AND252)OR3
1980 POKE53272,20:POKE53265,27
1990 POKE648,4
40000 PRINT"[147]":FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:POKE2048,0:POKE44,8:POKE44,1:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END